home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / mac / 3-Presentations / Apple Demos / Training / Apple Scanner Training / Examples / background_4709.txt < prev    next >
Text File  |  1990-04-09  |  4KB  |  205 lines
  1. -- background: 4709 from stack: in
  2. -- bmap block id: 4993
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openStack
  8.   hide message box
  9.   hide menuBar
  10.   pass openStack
  11. end openStack
  12. on openCard
  13.   hide menuBar
  14. end openCard
  15.  
  16.  
  17.  
  18. -- part 18 (button)
  19. -- low flags: 00
  20. -- high flags: 2000
  21. -- rect: left=228 top=317 right=337 bottom=255
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 21700 / 21700
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: New Button
  30. ----- HyperTalk script -----
  31. on mouseUp
  32.   visual dissolve slow to card
  33.   go to card id 4243 of stack "Selling Home Card"
  34. end mouseUp
  35.  
  36.  
  37.  
  38. -- part 19 (button)
  39. -- low flags: 00
  40. -- high flags: 8004
  41. -- rect: left=289 top=317 right=338 bottom=427
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Examples
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   set hilite of background button "Examples" to true
  53.   visual effect zoom open
  54.   go to card id 8927
  55. end mouseUp
  56.  
  57.  
  58.  
  59. -- part 21 (button)
  60. -- low flags: 00
  61. -- high flags: 2000
  62. -- rect: left=442 top=281 right=301 bottom=464
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 1
  66. -- font id: 0
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: Next Card
  71. ----- HyperTalk script -----
  72. on mouseUp
  73.   visual wipe right slow to card
  74.   go to next card
  75. end mouseUp
  76.  
  77.  
  78.  
  79. -- part 22 (button)
  80. -- low flags: 00
  81. -- high flags: 2000
  82. -- rect: left=406 top=281 right=302 bottom=428
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 1
  86. -- font id: 0
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: Prev Card
  91. ----- HyperTalk script -----
  92. on mouseUp
  93.   visual wipe left slow to card
  94.   go to previous card
  95. end mouseUp
  96.  
  97.  
  98.  
  99. -- part 25 (button)
  100. -- low flags: 00
  101. -- high flags: 0000
  102. -- rect: left=451 top=3 right=42 bottom=491
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 1004 / 1004
  105. -- text alignment: 1
  106. -- font id: 0
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: 
  111. ----- HyperTalk script -----
  112. on mouseUp
  113.   play harpsichord a4
  114.   global search
  115.   answer "Type of Search?" with "Browse" or "Automatic" or "Cancel"
  116.   if it is "Browse" then
  117.     visual wipe up slowly
  118.     go to card "Glossary" of stack "Glossary"
  119.   end if
  120.   if it is "Automatic" then
  121.     ask "Find Word?"
  122.     put it into search
  123.     if search is empty then
  124.       exit mouseUp
  125.     else
  126.       visual wipe up slowly
  127.       put "find search" into message box
  128.       hide message
  129.       go to card "Glossary" of stack "Glossary"
  130.       find word search in field "Text"
  131.       if the result is "not found" then
  132.         answer "Word not found." with "OK"
  133.         exit mouseUp
  134.       else
  135.         show card field id 13
  136.         wait 4 seconds
  137.         hide card field id 13
  138.       end if
  139.     end if
  140.   end if
  141. end mouseUp
  142.  
  143.  
  144. -- part 27 (button)
  145. -- low flags: 00
  146. -- high flags: 8004
  147. -- rect: left=69 top=317 right=338 bottom=207
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: Market Needs
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   visual effect zoom open
  159.   go to card id 5306 of stack "Needs"
  160.   set hilite of background button "Market Needs" to true
  161. end mouseUp
  162.  
  163.  
  164.  
  165.  
  166. -- part 28 (button)
  167. -- low flags: 00
  168. -- high flags: 2000
  169. -- rect: left=367 top=280 right=303 bottom=395
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 1012 / 1012
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: Pop Card
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   visual dissolve slow to card
  181.   go to card id 8927
  182. end mouseUp
  183.  
  184.  
  185.  
  186. -- part 24 (button)
  187. -- low flags: 00
  188. -- high flags: 0000
  189. -- rect: left=402 top=3 right=42 bottom=438
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 1008 / 1008
  192. -- text alignment: 1
  193. -- font id: 0
  194. -- text size: 12
  195. -- style flags: 0
  196. -- line height: 16
  197. -- part name: 
  198. ----- HyperTalk script -----
  199. on mouseUp
  200.   doMenu "Print Card"
  201. end  mouseUp
  202.  
  203.  
  204.  
  205.